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AA AA 


RRRRRRRR 
RRRRRRRR 
R RR 


— — 
— — 


— — — — — — — — — — — — — — 
— — 


(Bae bt Pe ÇGäö te — — — — — — — — — 
— — 


— — 
— — 
— — 
— — 


— — 


c9 
TTYCHARI = terminal input character routines 8-JAN-1985 17:28:50 VAX/VMS Macro Vv04-00 Page 0 
Table of contents 


(2) 167 pec lLarations 

(3) 187 TYSPUTNEXT CHAR = BUFFER CHARACTER 
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(12) 682 CONTROLS handler 
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(14) 740 ESCAPE, CSI handler 

(15) 756 End of module 
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; FACILITY: 


22222 
Soooo 
ooo 


; VAX/VMS TERMINAL DRIVER 
: ABSTRACT: 

; THIS MODULE CONTAINS ROUTINES NEEDED FOR CHARACTER INPUT. 
: AUTHOR: 

; R.HEINEN 11-AUG-1976 

: Revision history: 

; v04-001 1R0001 Michael I. Rosenblum 05-Nov-1984 
3 Make F10 honor Line editing characteristic 

; V03-019 MIRO45O Michael I. Rosenblum 27-Jun-1984 
3 Never initiate Logins on a terminal marked secure server 

: and noautobaud from unsolicited input. 

: v03-018 M1R0370 Michael I. Rosenblum 20-Mar-1984 


Use TTYSGB_AUTOCHAR to get the character to indicate 
ready for system password. 


v03-017 M1RO310 Michael 1. Rosenblum 07-FEB-1985 
Fix bug that caused the interrupt key to stop working when 
in 8 bit mode. Add code to output a different character 


il fs 
) Vv 
- terminal input character routines 

! 


WRI SO ODN NE WE WP "9 0I A O WN OO OONAUE WW OWONOULS WW 


DIE BER EER 8 8 FE EWWWWIIWIIIIinnorononononofnong —— —— ——— 
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as 3 ready for system password character 


V05-006 MIROO17 Michael i. Rosenblum 05-Jan-1983 
hange return status of TTYSPUTNEXTCHAR to include a byte value 


BREVIS SSS 


: Fix bug in pasthru mode so it will honor control-s and 
§ ; control-q correctly. 
: ; V03-016 MIROO82 Michael I. Rosenblum 19-Aug-1983 
: Make long word reference to a byte field a byte reference. 
61 ; v03-015 MIROO8O Michael I. Rosenblum 14-Jun-1983 
8 Restructure module. 
64 : v03-014 MIROOS1 Michael I. Rosenblum 3-Jun-1983 
65; Optogize normal gheracter input code path, make jobcontroler 
06 ; notification logic a subroutine, output beli uppon notification 
67 ; of job controler on login. Make buffering characters in the 
08 ; typeahead buffer a subroutine. 
8 v03-013 MIR1050 Michael I. Rosenblum 23-May-1983 
4 : finish removing code for broadcast. 
ig : v03-012 JLV0255 Jake VanNoy 23-MAY-1983 
74; Add code to allow out-of-band aborts. Set up multi-echo 
* strings to be table driven. 
77: v03=011 M7x0041 Michael I. Rosenblum 29-Apr-1983 
78 ; Cause autobaud to require a readable CR before initiating 
79 ; loginout. Clear the passall optomization bit when EOL is 
80 ; set. Check int before Jumping into the getnextchar code path 
39 3 when EOL is set by the passall code path. 
BS ; v03-010 MIRO034 Michael I. Rosenblum 07-Apr-1983 
HE 3 allow LK201 function key F6 to translate to “C 
Be : v03-009 M1RO032 Michael I. Rosenblum 05-Apr-1983 
3 Allow control-C,¥ and 0 to echo dec crt strings. 
89 : v03-008 RKS0008 RICK SPITZ 14=-MAR=1983 
oy 3 ADD SUPPORT FOR LOGICAL UCB 
3 F V03-007 MIR0023 Michael I. Rosenblum 24-Jan-1983 
93 ; Move the location of setting MULTI in the control-C and Y 
94 ; Logic to allow MULTI to be cleared during READONE. 
95 ; Clearing MULTI will stop the Read buffer from 
96 ; being modified after readone dealocates it. 
1 : n the UCB, this will move the information from the condition 

! 3 code bits. 

103 ; v03-005 M1R0015 Michael I. Rosenblum 20-Dec-1982 

104 ; Change TTYSV_ST_UNSOL and TTYSV_ST_GETAHD to TTY$V_FD_UNSOL 

105 ; and TTY$V_FD_GETAHD, to reflect chanaes in the fork dispatcher 
1 : Change calls to port driver to cail the class driver jacket 

} : routines. 

1 3 : v03-004 MIROO14 Michael I. Rosenblum 17-Dec-1982 

110 ; Change PORT_XON and PORT_XOFF to CLASS_XON and CLASS_XOFF 
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v03-003 MIRO013 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 


v03-002 M1ROO11 Michael I. Rosenblum 18-Nov-1982 
ge A 8 Aig to always take a length count and address 


v03-002 MIROO10 Michael I. Rosenblum 09-Nov-1982 
Move the address 9 the terminator mask, and the length 
of the prompt str ng from the IRP into the terminal read 
he count of the characters in the 
uffer from the UCB into the terminal typeahead buffer packet. 
Restructured typeahead buffer alarm size calculation slightly 
to use the count from the typeahead buffer packet. 


v03-001 RKS0001 23-SEP-1982 
RESET ALTLEN V TIECHO STRING, TO INSURE 
THAT “Y ECHO DURING READ VERIFY FUNCTIONS PROPERLY. 


RKS0026 RICK SPITZ 25-JAN-1982 
CHANGE CONTROL O LOGIC TO WORK WITH BURST MODE OUTPUT 
(PREVENT WRAP IN MID LINE) 


acket. Also move 


RICK SPITZ 
ALUE WHEN STARTING MUL 


v02-026 


v02-025 RKS0025 
CHANGE INSPOST CALL TO WRITE POST IN CTRLC,Y LOGIC. 


; RICK SPITZ 15-DEC-1981 
: v02=024 RKS0024 RICK SPITZ 20-NOV-1981 


ADD OUT OF BAND SUPPORT 


SOooooooocoooo 


00 
100 v02-023 JLV0099 Jake VanNo 27-0c t-1981 
4 Changed TTYDEFS to STTYDEFS. 
00 V02-022 RKSO22 RICK SPITZ 20-AUG~-1981 
4 ADD ALTERNATE TYPEAHEAD SIZE SUPPORT 
0 v02-021 RKS021 RICK SPITZ 12-AUG-1981 
3 CORRECT DEFINITION NAMES 
00 v02-020 JLV0062 Jake VanNoy 10-Aug-1981 
8 Added autobaud code. 
‘ 


v02-019 RKSO19 RICK SPITZ 
SEVERAL NEW FEATURES HAVE BEEN 
CLASS/PORT STRUCTURE OF THE T 
INCLUDE ENHANCEMENTS TO SUPPO 
NG MOST 0 G 


E 

IC : 

NCTIONS RESUME AND STOP 

D CONTRO AND Q, LOGIC TO HANDLE CONTROL S 
A BROADCAST IS ALSO INCLUDED. 


A 27-JULY-1981 
MINAL SERVICES. THESE 

wt TATE AND 

2 


-za™ 
=< 
nm 


F 
RECEIV 
DURING 
v02-018 RKSO18 RICK SPITZ 26-F EB-1981 

REMOVE V2.0 AUDIT TRAILS 


PDERAEQ®D’ADAA AAAI Be Be ES BY ES EE AAI AIAIIIPPOPINIPONINYDY 2 
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a em em me ee ee ee — — — — — — — — — — — — — — ed ed ed — — —— 


“JAN=1985 17:28:5 AX/VMS Macro y04-00 P 4 
B31 980 04:46:45 ETTORVR.BUGSRCSTTYCHARI MARS 1°o" (2) 


9 
-SBTTL Declarations 


G 
es 


; EXTERNAL SYMBOLS 


put character routin 


= terminal in 
Declarations 


E STATUS CODES 
T 
T 


ISTERS 


ov *e&a>c>a- 


FUNCTION CODES 
E 
1 
4 
4 
I 
C 
F 


*s 
E 
E 
0 
I 
I 
I 
I 
I 


ive ny 
(verve ew Ou 
BWW Be WwOUw wud 


; DEFINE NON-PAGED PSECT 


~PSECT $$$115_DRIVER,LONG 


— — — — — — — — — — — — — 
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WRI —§ OOO NIP NEU SO OD NAA WN 9 OO NA NEW 0 OD NAUF WN 


Sete Se ang end eg Gee Ge Be ee Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Ge Ge Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se 


SooooooooSo 
0000 


222 


2 
oo 


SSss 
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Ooocoo 
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- BUFFER CHARACTER “SEP=1984 04: TTDRVR.BUGSRC 
~SBTTL TTYSPUTNEXTCHAR = BUFFER CHARACTER 


TYCHARI .MAR; 1 


TTYSPUTNEXTCHAR - BUFFER CHARACTER 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE iS CALLED BY PORT DRIVERS TO PASS INPUT CHARACTERS. 


CHARACTERS RECEIVED ON NON PASSALL UNITS ARE FILTERED FOR IMMEDIATE 
CONTROL SEQUENCES. THESE SEQUENCES REPRESENT: 


CONTROL Y == CAUSES — orese von BU 
a oh ae CESS T 
BE AND TH 
BE COMPLETED WI 
AND AS IF CONTR 


CAUSES THE RECE F CONTROL C AST'S OR THE hee 
OF CONTROL Y AST*S TO BE SIGNALLED AS IN CONTROL Y 


6 THE a OF THE TYPEAHEAD BUFFER 
TO BE PURGED AND A CONTROL U TO BE INSERTED 
IN THE INPUT STREAM IF A READ IS IN PROGRESS. 


CAUSES ALL OUTPUT ON UNIT TO STOP UNTIL 
CONTROL Q,Y OR C. 


CONTROL Q == RESETS CONTROL S MODE AND STARTS OUTPUT UP. 


SLAVE MODE ( NO UNSOLICITED INPUT ) UNITS MUST HAVE GUTSTANDING 
rt at THE CHARACTER, AFTER CONTROL CHARACTER FILTERING 


FER TO BE PURGED, THE 
VE AN AST To 
T OPERATION” IF ANY TO 
I RAN ANSFER COUNT FOR READ 
CONTROL C I 


H 
Ll 
vE 
8 


CONTROL X 


CONTROL S 


INPUTS 
= CHARACTER TO BUFFER 


=U 
R1,R2,R4 ARE AVAILABLE FOR USE 


OUTPUTS: 
R3 = AND CC = ZERO 
CHAR __ AND CC = PLUS 
ADDRESS AND CC = NEGATIVE 
RS = UCB ADDRESS 
S LONG REACH TABLE 
TAB CHE CKPRE BRW —- CHECKPRE 
AB-CONTINT BRY = CONTINT 
AB-EIGHTBIT BRU =s—s EIGHTBIT 
TAB_OUTBAND CHAR: BRW  OUTBAND_CHAR 
; MAIN LINE 
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TTYCHARI = terminal Inout character routin 
v04=001 TTYSPUTNEXTCHAR = BUFFER CHARACTE 
C 264 TTYSPUTNEXTCHAR:: 
52 0088 cs 9 45 MOVAB UCB$Q_TT_STATE(RS),R ADDRESS STATUS OF UNIT 
00 ar 6 46 BIT #TTSM~EIGHTBI beast —ãEXV ); 8BIT TERMINAL? 
12 001 47 BNEQ TAB_EIGHTBIT 3 IF NE@ THEN YES 
53 80 ar BA 0019 48 BICB —R6 R3 : STRIP 8TH BIT 
1p 4 IF STATE PASALL,TAB_CHECKPRE ; IF PASSALL THEN OPTOMIZE 4 
51 0105 c5 9A 1 29 MOVZBL uces B.TT_INTCNT(RS),R1 =; ARE WE IN THE MIDDLE OF THE F 
DB le § BNEQ = TAB_C CONTIN' ; THE INTERUPT KEY = YES THEN HANDLE IT i 
4 > CHECK FOR OUT OF BAND CHARACTER i 
20 53 «91 6 ‘ CMPB 3, #*A/ ; CONTROL CHARACTER? i 
dc «OF 8 BLSSU TAB ou TBAND CHAR : YES THEN PROCESS IT 3! 
d 8; BRB BUF FER_ ; FALL INTO BUFFER CHARACTER : 


++ 


2O< 


2s 
Et aA ake oe ee noe eo ee 


$2999 


SOOO lock 


+>. 


Lene 


= 
— 


2s 


= terminal input character ro — 
BUFFER.CHAR — — 


= puts character into typeah 5-SEP-1984 04: TTDRVR.BUGSRCJTTYCHARI .MAR; 1 
: -SBTTL BUFFER_CHAR = puts character into typeahead buffer 


yes 
3 i BUFFER CHAR = INSERT CHARACTER INTO TYPEAMEAD BUFFER 
— ; FUNCTIONAL DESCRIPTION: 


¢ ; 25 POINT WE KNOW THAT THE CHARACTER DOES NOT REPRESENT SOME IMMEDIATE 


INPUTS: 
ns = ADDRESS OF THE yet STATE VECTOR 


Wn—Oo 
° 


—~ 

w 
Bete Se Ge Ge Ge Ge Se Se Ge Ge 
a 


= CHARACTER TO BUF 


74 = UCB ADDRESS 

q OUTPUTS: 

28 R2,R3,R5 ARE PRESERVED 

0 “ENABLE LSB 

1 BUFFER_CHA : BUFFER CHARACTER 

j IF STATE E READ, 408 ; IF READ THEN BUFFER CHARACTER 
IF -soire FILTER READ THEN OPTOM: 2E 

4 * BBs — B TT_TIMO,UCBSW_ pevéTs ins) O$:; BR IF TIMEOUT 


BSBW = BUF FER_INSERT 
; BEGIN ECHO ON READ 
§ besin. ECHO: 
i: START UP OUTPUT IF NOT ALREADY STARTED 


; INSERT THE CHARACTER IN THE BUFFER 


BITW — #UCBSM_INT,UCBSW_STS(RS); INTERRUPT EXPECTED? 
BNEQ : IF NEQ THEN YES 
56 BRW TTYSGETNEXTCHAR : FIND THE NEXT CHARACTER FOR THIS UNIT 
97 168: BRW DISMISS > EXIT 
; TIMEOUT ACTIVE = RESET THE TIMER THEN FALL INTO THE NORMAL PATH 
1 208: 
VL -— UCBSL_SVAPTE(RS) ,R4 ; ADDRESS READ BUFFER BLOCK 
MOVZWL TTYSW"RB_TIMOS(R4),.RG  : GET THE NUMBER OF | SECONDS 
EOL idi ; BR IF READ WITH ZERO SECOND TIMEOUT. 
5 ADDLS R4,G*EXESGL_ABSTIM,UCBSL’TT_RDUE(RS); RESET THE TIME 
BRB 108 ; RETURN TO THE MAIN LINE 
30$: Baw GOPASS 


> NO READ IS CURRENTLY ACTIVE 


dos: BBS #@TTSV_NOTYPEAHD ob UCBsL DEVDEPEND ND(RS).5 
MOVL UCBSL7TT_L Locucei LOGICAL U 
1 TST  UCBSW"REFC : it REF COUN 


~~ oe 
Wn—o 


=~JAN-1985 17: 98: 39 qin Fl Macro y04-00 Page 


$; ca “ADDRESS TERMINAL, IGNORE C 
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TTYCHARI 
v04-001 
1 
60 aT 
£8 
BF 44 ne 9 
BA 68 A Q 
FF ?D' 
FFBS 
0061 
08 48 8 op 
8 
FF6A' 
EB 48 AS % 
QO000'CF 53 
00000068 ' GF 
Fees 
36 64 AS O01 
GF 
53 
20 
0108 66 01 
54 
FFI6° 
0108 C5 
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HAR = puts character inxo typeah =3607198? ba; 18:3 71 


n 
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; Before checking terminator, check for autobaud detect 
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IF LEQ THEN DISM 
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BEQL 50$ ; If €Qt fT 08 CONTROLLER POSSIBILITY 
azo y gs. AMB(R1) ; USER ASSOC LATED MAILBOX? 
BBS AB | MBXDSABL tees DE VBEPEND (RS) 0$; BR IF NOT ENABLED 
BBS eycged TT_NOTIF UCB O_DEVSTS(RS),1 168; BR IF ALREADY NOTIFIED 
BSBW TIFY 

4$: BRW 108 

5$: BRW DISMISS ; CONTINUE 


arte Vv “thine -UCBSL *— Abranch if no autobaud 


CMPB Os #TTYS$SC : CR T WE ARE CORRECT 
+ 66 by hy ree 
or corre ate 
60$: BBS BE Ad TSE CURE ,UCBSL pevobPnnsihs)s 4$: DON'T EVER INITIATE 
; HERE F'SECURE SERVER IS SET 
65$ BBC R3,W*TTYSA_STANDARD,4$ : IF fot TERMINATOR THEN NOT FOR JOBCTLALR 


TSTw *“SYSSGL_JOBCTLMB+UCBSU -DEVSTS: TERMINALS me FOR JOBCTLR? 


eurres. INSER : BUFFER THE CHARA CT 
BS #uCBSV"1 cas, bg STS(R5) .DISR /DISMISS; DON'T RETURN DATA if INT EXPECTED 
8 MOVZBL G* ism RETURN THE AUTOBAUDED CHARACTER 
39 EOL 3 ; NO CHARACTER TO RETURN THEN EXIT 
40 TIMSET a OUTPUT ; LOCK THE OUTPUT STREAM AND TIME OUT THE CH 
1 vB nt toc T _OUTYPE(RS) SETUP THAT WE RETURNED DATA 
4¢ RSB : THEN RETURN 
at : NO TYPEAHEAD BUFFER - ALLOCATE ONE 
46 NO_BUFFER ; 
ROVL #TTYSV_FD GETAHD,.R4 : ASK FOR TYPEAHEAD FORK 
a BSBW VTYSCRE_F ORK ; CREATE THE FORK FOR ALLOCATION 
30 : DISMISS INTERRUPT - NOTHING TO DO 
3g BISMISS: 
5 CLRB ——« UCBS$B_TT_OUTYPE(RS) ; SET NO RETURN CHARACTER 
54 R > RETURN 
55 .DISABLE LSB 


SP FBBBSBIB— DH WMMMIINNAAAMQAOOQAOOQMO 
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ms 
D3 


1C 48 AS UCBSL VBEVDEPNDS RS), 558 


a 
N 
EF f ~SBTTL BUFFER_INSERT = INSERT CHARACTERS INTO THE TYPEAWEAD BUFFER 
EF ; 
cf 60 : ; BUFFER_INSERT = BUFFER CHARACTER IN CIRCULAR TYPEAHEAD BUFFER 
EF 8 res⁊ TO SEE If THE NUMBER OF CHARACTERS IN THE TYPEAHEAD Ig CRITICAL 
EF 63 ; THIS TEST DOES NOT WORK FOR TYPEAHEAD BUFFERS BIGGER THAN 32K BYTES. 
EF 365 : INPUTS 
EF 66 : Rs = CHARACTER TO INSERT 
EF 6 : - PHYSICAL UCB ADDRESS 
EF $3 : OUTPUTS: 
OEF 0; NONE 
OOEF 71; 
Boer i 3 
OEF 7 : 
O&F 37% 
EF 75 BUFFER_INSERT: 
54 0&4 C5 09 EF 376 MOVL §UCBSL_TT_TYPAHD(RS).R4 ; ADDRESS TYPEAHEAD BUFFER 
13 00F4 377 BEQL § NO_BUFF ER ; IF EQL THE 
E1 Bare 78 BBC #TT2$v_ALT SKIP IF NORMAL TYPE AHEAD SIZE 
J 
00000000'GF a3 OOFB 381 SUBW3 © G*TTYSGW_ALTALARM,G*TTYSGW_ALTYPAHD,R1 ; WITHIN N CHARS OF TYPAHD F 
00000000" Gt 9191 
01 51 3D 0107 382 ACBW = sR}1, #1, TTYSW_TA_INAHD(R4) ,60$ : BRANCH IF NO 
0030 OC A4 010A 
00000000" GF a0 108 383 ADDW2  G*TTY$GW_ALTALARM,R1 ; MAX # TYPEAHEAD CHARS 
12 #11 94 384 BRB 57$ : JOIN COMMON PATH 
08 A3 0117 386 55$:  SUBW3 #8,G*TTYSGW_TYPAHDSZ,R1 : WITHIN 8 CHARS OF TYPAHD FULL? 
00000000" GF 119 
01 51 3D O11F 387 ACBW Ru, #1, TTYSW_TA_INAHD(R4),60$ | ; BRANCH IF NO 
0018 OC A4 0122 
51 a0 0126 8 ADDW2 #8, R1 : MAX # TYPEAHEAD CHARS 
FEDS’ 30 0129 9 57$:  BSBW  TTYSXOFF : SEND XOFF 
gt C 0 SET STATE <TYPFUL> : SET UP STOP SEQUENCE 
0c AS) 51 81 vi56 551 cmPQ TTYSw_ TA _INAHD(R4) =: TYPEAHE AD BUFFER OVERFLOW? 
08 18 0134 39 BGEQ ny : IF GEQ THEN NO OVERFLOW - BUFFER CHARACTER 
0c 685 6i 5 DECW TTY$W_TA_INAHD(R4) : RESET COUNT ON OVERFL 
1 94 se _STATE <OVRFLO> * INDICATE OVERFLOW CONDITION 
05 p 95 RSB” 
E 38 J INSERT CHARACTER IN TYPEAHEAD BUFFER 
0084 53 90 01 99 80$:  MOVB  R3,aTTYSL_TA_PUT(R4) INSERT CHARACTER IN BUFFER 
05 64 19 AA =F2 0142 400 AOBLSS TTYSL_TA_ENDTR4), TIYSL TA PUT(RG) 708: INDEX ANd BR IF NOT AROUND 
646 «0118 C4 3 14? 401 * MOVAB  TTYSL-TATDATA(RGS ,TTYSC MK PUT Ras. RESET POINTER 


R4,R1 ARE DESTROYED 
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Put next character service routines -SEP-19 TTDRVR.BUGSRCJTTYCHARI .MAR; 1 ) 
138 : ¢ -sbttl Put next character service routines 
140 4 5 : AVOID TYPEAHEAD BUFFER FOR PASSALL MODE 
14D 408 “ENABLE LSB 
140 409 CHECKPRE: 
OA 48 AS 1 # 140 410 BBC aTT2$v _PASTHRU,UCBSL -? DEV yormmpe ce?) 200$; IS THIS hay 3 PASSALL MODE? 
2 3 0152 411 8118 aTTysSn =CH CTRL, TTYSA_TYPECR3J; IS fHIS A CONTROL CHA 
00000000'EFS Size 
1E 12 OSA tig BNEQ 2508 3; YES THEN CHECK FOR CONTORL=S OR 
Bi2e M 2008: IF NOT_STATE PRE,220$ 3; NO READ WAITING THEN BUFFER THE CHARACTER 
b185 415 : Pass all optomization verifyed continue 
0160 218 s , 
0160 417 GOPASS: 
54 78 AS DO 0160 418 MOVL het SVAPTE(RS) ,R4 ESS * okie ke BLOCK 
30 68 AS 01 0 0164 419 BBS esv_TT _TIMO, uCBSw_ pevirscr »,270 R IF TIMEOU 
FEY9<* 0 0169 420 2108: BSBW PaSeALL é —53 ) Fuin THE TYPEAHEAD 
8186 421 F_ STATE EOL,230$ ; If read c then exit 
FF77 31 Bie . ¢ BRO DISMISS ; NORMAL CHARACTER THEN SISMISS THE INTERUPT 
O17 4 $i > READ TERMINATED 
0173 456 5308: CLR. STATE PRE ; EOL THEN CLEAR PRE 
FEC3 31 94 BRW BEGIN_ECHO ; AND BEGIN THE EOL SEQUENCE 
—98 9: ; Flow control allowed and the character could be a control-s or q | 
00000000°EF 4s 91 O17 431 3508: CMPB —-«TTYSA_TYPECR33,#3!TTYSM_CH_CTRL: IS IT A CONTROL-O 
08 tA 0182 $38 BGTRU 00$ : i 7 —* NORMALY 
8 13 tte 43 BEQL 60$ hen restore flow 
ene wae 91 Big6 434 CMPB TTYSA_TYPECR3), M2: TTYSM_ ty” "ETRL: IS IT A CONTROL=S 
cc 12 0O18E 435 BNEQ 2008 ; NO THEN EXIT 
016A = 331 938 436 BRwW CONTROLQ 3 else stop output 
0176 31 8132 ? 7 2608: BRw CONTROLS 
34*8 639 : jump to buffer the character 
FE9% 31 0196 441 5208:  BRW BUF FER_CHAR 
0199 ces > RESET TIMERS AND CONTINUE 
51 36 AG 3C 0199 445 2708: MOVZWL TTYSW_RB_TIMOS(R4),R1 . GET THE NUMBER OF SECONDS 
CA 13 190 44 BEQL 2108 ~ BR IF READ WITH gene + oe TIMEOUT. 
51 C1 33 44 ADOL3 = =R1,G*EXESGL _ABSTIM, UCBSL_ TT_RDUE(RS); RESET THE TIME 
00000000 ' GF 1A1 
0080 C5 1A6 
11 1A9 $68 BRE 2108 
1AB 44 -DISABLE LSB 
1AB 450 -ENABLE LSB 
1AB 4451 
1AB $26 : 
1AB 455 ; 8 BIT CHARACTER IT MAY BE A CSI 
1AB 4543 
OlAk «©6455. EIGHTBIT: 
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v04-001 Put next cherecter service routines =36h=138? bo: 98578 YT TORVR. BOSSRC TTYCHARI.MAR; 1 ° (6) 
1AB 45 IF_STATE PASALL,CHECKPRE 3 IF WE ARE IN PASSALL MODE: THEN 
1AF 45 3; DON'T PROCESS CSI 
53 98 BF 91 OTAF $38 CMPB #TTYSC_CSI,R3 3 NO THEN IS IT A CSI 
3 \¢ 1B 45 BNEQ 305$ : NO THEN CONTIUE NORMALY 
0179 3 18 460 BRwW CSI ; ELSE TAKE CSI ACTION. 
51 0105 ¢S5 9A 018 461 305$:  MOVZBL WEBB. TT INTCNT(RS) JAI ; ARE WE_IN THE MIDDLE OF THE 
qe M Sree #96 BEQL 10$ ; THE INTERUPT KEY = YES THEN HANDLE IT 
O1IBF 464 ; 
g1Br 8 ; CHECK FOR INTERRUPT KEY 
‘ 0105 3 94 O18 169 CONTINT:CLRB ucese TT_INTCNT{RS) 3 ASUME IT IS THE WRONG KEY 
0000'CF41 91 O1C3 468 CMPB = s«R3 ,W*INTERRUPT_KEYCR1]. ; IS THIS THE NEXT CHARACTER 
14 12 0109 469 BNEQ ; NO THEN THE STATE IS CORRECT SO EXIT 
A ae 0} 81 pice 470 ADDB3 #1,R1,UCBSB_TT_INTCNT(R5S; INCREMENT THE COUNT 
00" 0105 ¢5’ 91 pip) 471 CMPB CBSB_TT_INTCNT(RS) ,S*#INTERRUPT_KEY_LEN 
07 12 0106 tig BNEQ 
0105 CS) «94 «40108 47 CLRB UCB$B_TT_INTCNT(RS) _y COMPLETE ESCAPE SEQUENCE THEN RESET 
006¢ 31 p10C 474 BRW CONTROLC 
20 «(5 91 O1DF 475 3108: CMPB R3,M°A/ / 3 IS THIS CHARACTER OUT OF BAND 
32 i «(O1E2) «6476 BLSSU OUTBAND_CHAR ; YES THEN HANDLE CORRECTLY 
FE46 31 61553 477 BRW BUFFER_CHAR ; ELSE BUFFER THE CHARACTER 
O1E? 478 -DISABLE LSB , 
Q1E7 479; 
O1E7 480 ; OUT OF BAND CHARACTER PROCESSING 
O1E7 . 481 ; 
O1E7 482 BELOUTBAND: , 
54 009C C1 DE O1E7 483 MOVAL UCBS$L_TL_BANDQUE(R1),R4 : ADDRESS OF QUEUE 
DD O1EC 484 PUSHL R6 3 SAVE R6 
56 O0A4 C1 00 ores 485 MOVL UCBSL_TL_CILPID(R1),R6 3 GET THE CONTROLING PID 
00000000'GF 16 O1F 486 JSB G*COMSDECCTRLASTP ; DELIVER ANY OUTSTANDING ASTS 
56 8ED0 pie? re POPL R6 : RESTORE R6 
oie $8 ; CHECK FOR INCLUDE OR ABORT 
OF 53. OF €5 OFC 491 BBCC #TAST$V_ABO,R3,5$ 3 CHECK ABORT FIRST 
0651 or 3¢ 3600 492 MOVZWL #SS$_CONTROLC ,UCBS$W_BOFF (R5) ; SET STATUS 
oopc C5 Bf $506 493 CLRW UCB$W_TT_MULTILEN(RS) : CLEAR, NO EHCO TO PREFORM 
FOF3"' 30 Q20A 494 BSBW TTYSABORT_10 ; ABORT 1/0 4 
04 11 020d 95 BRB 3: CONTINUE 
OE 53 56f ¢ OF 496 5$: BBSC #TASTSV_INC,R3,CHECASE : DONT STRIP CHARACTER 
FEDS 1 13 44 8$: BRW DISMISS 
8 16 635 3 CHECK FOR CONTROL SEQUENCE CHARACTER 
16 4 OUTBAND_ CHAR: 
51 0000 65 00 16 a8 MOVL UCBSL_TT_LOGUCB(RS) ,R1 ; GET LOGICAL UCB ADDRESS 
0098 ci 53 EO 18 4 BBS R3,UCB$L-TL_OUTBAND(R1),.DELOUTBAND; NOT IN SUMMARY MASK 
1 8 
1 — CHECASE: 
1 8 CASE W*TTYSA_TYPECR3), TYPE=B8,LIMIT=#laTTY$V_CH_CTRL,- 
, 1 8 <CONTROCC , CONTROLO, CONTROLQ, CONTROLS, CONTROLX, CONTROLY ESCAPE .CS1> 
FDOF2 31 (0238 56 BRw BUFFER_CHAR 


— 
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v04-001 PRE-TYPEAHEAD CONTROL CHARAC —B ACTION R 5-SEP-1984 04: CTTDRVR.BUGSRCJTTYCHARI.MAR; 1 (7) 
3388 BE .SBTTL PRE-TYPEAHEAD CONTROL CHARACTER ACTION ROUTINES. 
8 J : ENTRY FROM CONTROLY AND CONTROLC 
0236 515 CANCEL_CTRLS: 
FDC2" 30 0238 516 BSBW Ss TTYSRESUME ; RESUME ANY PORT OUTPUT 
FOFC 31 O23E $17 BRW BEGIN_ECHO + BEGIN OUTPUT 
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v04-001 PRE=TYPEAHEAD CONTROL CHARACTER ACTION R -SEP-1984 04: ‘48:3 E TDRVR. BUGSRC TTYCHARI .MAR; 1 a: (9) 
41 19 
a 9 -SBTTL CONTROLC, CONTROLY handlers 
41 § -ENABL LSB 
41 
8 41 4 544 
41 5 ; CONTROLC = SIGNAL CONTROL C INPUT 
8 9 3; CONTROLY = SIGNAL CONTROL Y INPUT 
0 a 8 ; FUNCTIONAL DESCRIPTION: 
o 41 0 ; THIS ROUTING I$ on arenee WHEN A CONTROL C OR Y IS TYPED. 
41 1 ; THE ACTION IS TO SIGNAL, VIA AN AST, THE HOLDER OF THE AST ENABLE. 
0241 § 3; IF NO ENABLE IS PRESENT, AN ATTEMPT IS MADE TO SIGNAL THe JOB CONTROLLER 
0241 : IF IT HAS NOT BEEN SIGNALED. 
0241 534; 
8 9 5 ; INPUTS: 
0241 5 $ ¢ R2 = ADDRESS OF THE UNIT STATE VECTOR 
0241 538; RS = UCB ADDRESS 
0241 44 : 
bse} 40 ; OUTPUTS: 
0241 541 ; 
0241 245 ; R2 = ADDRESS OF THE UNIT STATE VECTOR 
0241 543; RS = UCB ADDRESS 
0241 544; 
0241 545 3 
0241 208 
00000001 0241 547 M_CTRLC = 1 
00000002 0241 548 M_REGIS = 2 
00000004 8 9 3 M_DECCRT = 4 
0241 551 CONTROLC ; ENTRY FOR CONTROL C 
51 9000 C5 DO 0241 226 MOVL UCBSL_TT_LOGUCB(R5),R1 ; GET LOGICAL UCB ADDRESS 
54 0094 C1 DE 888 55 MOVAL UCBSL_TL_CTRLC(R1),R4 $ oo tase OF CONTROL C AST LIST 
64 ) 0248 554 u 4) : 
10 13 BSer 555 BEQ 10$ : Fed : THEN NO CTRLC 
~~ 8* 3¢ 8 of 556 ROVIUL #SS$_CONTROLC ,UCBSW_BOFF (RS) :; SET STATUS. AND ZERO COUNT 
53 01 9A 0985 557 MOVZBL #M_CTRLC,R3 3; Set ‘‘Cancet" 
19 11 0258 558 BRA 15$ 3: Branch 
84 559 : 
025A 560 : CONTROL Y PROCESSING 
8 SA 61; 
5A 6 
5A 63 CONTROLY: 
51 00C0 C5 00 SA 64 MOVL UCBSL_TT_LOGUCB(RS),R1 ; GET LOGICAL UCB ADDRESS 
54 0090 C1 DE 4 8 108: MOVAL UCBSL_TL_CTRLY(R1),R4 3; GET ADDRESS OF CONTROL Y AST LIST 
64 05 64 86 TSTL (R4) 3; EMPTY LIST? 
0 12 $6 $8 BNEQ 13$ 3 No, branch forward. 
009 31 re $° 138 BR TAB_BUFFER : Yes. Don’t process it. 
sag | of 3C 9 71 MOVZWL #SS$_CONTROLY,UCBSW_BOFF (R5) ; SET STATUS AND ZERO COUNT 
53 D4 st 278 CLRL R3 ; Set “Interrupt” 
0273 7 3 
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03 48 AS 1D + 
5 04 8 

03 48 83 19 4 
5 02 8 

51 __0000°CF 00 
am "33 D0 
008 383d 
56 00 

56 00CO C5 DO 
56 ~=6Q0A4 (6—s 
00000000°GF 16 
56 8EDO 

FD4A' 30 

FF82 = 31 
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ROLY handlers -SEP=1984 TTDRVR.BUGSRCJTTYCHARI MAR; 1 (9) 
74 ; Common “*C and “Y code 

Rass: 

3S BBC #TT2$V_DECCRT,UCBSL ~PEVDEPND2(RS5) . «188: IS THIS A DECCRT? 

2 B1SB r 9— N DO A gPEGERTECHO 

79 18$ BBC atte Sy REGIS, UCBSL =DevDEPp (ns) ER Ob THIS REGIS 

p os BISB aM THEN Sir! but OF REGIS MODE 

: IF STATE —— 25$ : DON T INTERUPT THE NON-INTERUPT MULTIECHOS 

801 W°TTYSA AIM NTECHO,R1 ; FETCH TABLE POINTER 

4 (RIDCR3T, R3 CFFSET 

5 Bw (R3)¢ yt bsy TT_MUL HTILENCRS); SETUP THE LENGTH OF THE MULTIECHO STRIN 
— BYE R3,UCB$L_TT-MUCTI(R ; SET UP FOR MULTIECH 

Set _STATE NINTMUCTI : MAKE UF ats ONE OF THE NON-INTERUPTABLE 

8 + MULTIECHO STRING 

89 25$: PUSHL R6 
90 MOVL UCBSL_TT_LOGUCB(RS),.R6 ; GET THE LOGICAL UCB ADDRESS 
91 MOVL UCBSL“TL™CTLPID(R6).R6 : THEN GET THE P 
36 JSB G*COMSDECATTNASTP : DELIVER ATTENTION ASTS FOR THIS PID 
93 POPL R6 
95 BSBW TTYS$ABORT_IO 
96 BRw CANCEL_CTRLS ; CANCEL CONTROL S AND BEGIN ECHO 
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v04-001 CONTROLO hand -SEP-1984 TTDRVR .BUGSRCIJTTYCHARI .MAR; 1 (10) \ 


-SBTTL CONTROLO handler 


600 ; 
BY 6 ? : CONTROLO = START OR STOP OUTPUT ON UNIT 
BY é § : FUNCTIONAL DESCRIPTION: 
B9 605 ; THIS ROUTINE TOGGLES THE OUTPUT ENABLE OF A UNIT 
B9 6 8 ; OUTPUT Is STOPPED UNTIL THE NEXT READ OPERATION, I0$_WRTCANCTRLO 
44 ° 3 OR CONTROL 0. 
8 609 ; INPUTS: 
89 611: Re = = ADDRESS OF THE UNIT STATE VECTOR 
B9 i¢ ; UCB ADDRESS 
BY 614 : OUTPUTS: 
B89 616 : R? = ADDRESS OF THE UNIT STATE VECTOR 
0289 617: R5 = UCB ADDRESS 
—35 
60000001 0289 620 M_CTRLO_DEC = 1 
00000002 By 6 1 MICTRLO-ON = 2 
BY 6 5 CONTROLO: 
B9 625 IF NOT STATE READ, 120$ : IF NOT READ THEN H 
BD 6 6 IF “NOT-STATE CTRL, TAB DISMISS CONTROL F THEN IGNORE 
04 A2 01 AC 02C1 627 1208: xORW she TTY$M_ST CTRCO>,4(R2) ; FLOP controx 
C5 628 tf NOT STATE CT ETRLO; OUTPUTON : IF NOW CLEAR PEN START OUTPUT 
FD34" 30 0209 629 8 ABORT PORT OUTPUT 
53 53 6 Ob 30 Bs LRL oR : CLEAR ECHO FLAG 
03 11 0 i : 1 BRB CTRLO_ECHO : STARTUP THE OUTPUT 
0 p 6 5 i RESTART OUTPUT ON STOPPED UNIT 
ti 635 OUTPUTON: 
53 02 »0 p 6 : MOVL § #M_CTRLO_ON,R3 ; SET FLAG 
D3. 6 8 CTRLO_ECHO: 
D 6 IF STATE NINTMULTI, TAB cancel. CTRLS; don't bother non-interuptable multiecho 
1D €1 PF rk — _— att LTT NNT mat 
03 48 AS E1 bg jcos B — 98 — 150$ ; BRANCH IF NOT DECCRT 
53 01s a Es 643 * BISw 55 — 
51 530000168 p E? ee : MOVE vorTySA CTRLOECHO, RI ; INSERT ADDRESS OF STRING 
ccs F 4 MOVZBW (RSpen ett TT_MULT LENCAS) ; SETUP THE LENGTH OF THE MULTIECHO STRIN 
at C5 83 8 Fb eta MOVL — 44 “MULTI IRS) 0 iT UP FOR MULTIECHO 
zh 649 TAB_CANCEL ETRLS® 
FF3E 31 O2FA 650 BRO CANCEL_CTRLS ; RESUME OUTPUT 
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~SBTTL CONTROLQ handler 


+ 

CONTROLQ = START OUTPUT ON CONTROL S STOPPED UNIT 
FUNCTIONAL DESCRIPTION: 
THIS i ba STARTS OUTPUT ON A UNIT WHICH IS STOPPED BECAUSE 


40 
> OF CONTR 
> INPUTS: 
: Re = ADDRESS OF THE UNIT STATE VECTOR 
; RS = UCB ADDRESS 
: OUTPUTS: 
: R2 = ADDRESS OF THE UNIT STATE VECTOR 
: RS = UCB ADDRESS 
CONTROLQ: 
BBS aris TTSYNC UcBSL -DEVDEPEND(R5) ° 
B_CANCEL_CfRL TERMINAL SYNCH? 
TAB_BUF FER: 
IF STATE PRE, TAB_GOPASS : PASSALL OPTOMIZATION 
BRO BUF FER_CRAR : BUFFER THE CHARACTER NORMALLY 
TAB_GOPASS: 
BRW GOPASS 
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Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


6 § -SBTTL CONTROLS handler 
G8 +e 
i 5 ; CONTROLS = STOP OUTPUT TO UNIT 
6 5 ; FUNCTIONAL DESCRIPTION: 
¢ $ ; THIS ROUTINE IS ENTERED WHEN THE USER TYPES A CONTROL S. 
690 ; ON UNITS THAT DO NOT HAVE THE TTS$V_TTSYNC CHARACTERISTIC, THE OUTPUT 
631 Is _STOPPED BY TURNING THE OUTPUT INTERRUPT ENABLE BIT IN THE UCB 
638 J 
88 : INPUTS: 
696 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
697 : R5 = UCB ADDDRESS 
238 3 
é : OUTPUTS: 

00 ; 

c 


ONTROLS: 
BBC #TTS$V_TTSYNC,UCB2L_DEVDEPEND(RS),TAB_BUFFER; TERMINAL SYNCH? 
BSBW TTYS$STOP 3; STOP PORT OUTPUT 

TAB_DISMISS: 

BRwW DISMISS ; AND RETURN TO DRIVER CODE 
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-SBTTL CONTROLX handler 


. 

CONTROLX = PURGE TYPEAHEAD BECAUSE OF CONTROL X INPUT 

FUNCTIONAL DESCRIPTION: 

mis ROUTINE PURGES THE Treen BUFFER AND IF THE REASON IS THAT 
CONTROL X WAS TYPED DURING A READ THEN A CONTROL U IS INSERTED IN 

tHe INPUT STREAM TO PURGE THE CURRENT INPUT LINE. 

INPUTS: 


as = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


OUTPUTS: 
Re = yaa tng OF THE UNIT STATE VECTOR 
R35 = CONTROL U = IF CONTROL X TYPED DURING READ 
R5 = UCB ADDRESS 
CONTROLX: 
BSBw TTYSPURGE _AHEAD ; PURGE TYPEAHEAD 


IF_NOT_STATE READ; TAB DISMISS : DONE IF NO READ IN PROGRESS 
MOVZBL” #TTYSC_CTRLU,R3 ; FORCE A CONTROL U IN INPUT STREAM 
niet wre TAB_BUFFER ; CONTINUE AND BUFFER CHARACTER 
e sadie (Ss 
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-SBTTL ESCAPE, CSI handler 
: Escape - introducer for the cancel/interrupt key 


#TT2$V_EDITING,UCBSL_DEVDEPND2(R5),99$: DO NOTHING ON NO LINE 
MOVB #1,UCBSB_TT_INTCNT(RS) ; SET INTERRUPT COUNT 
BRW BUF FER_CRAR 


ae 
; CSI = CANCEL INTERUPT INTRODUCER 


BBC #1T2$V_EDITING, UCBSL_DEVDEPND2(R5),99$; DO NOTHING ON NO LINE 
nove £2 UCBSB TT INF CNT (RS) ; MOVE BY THE ESC C IN THE STRING 


at 
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End of module 
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-SEP-19 
-SBTTL End of module 
- END 
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CHEC 

CHE CKPRE 

CNT 
COMSDELATTNASTP 
COMSDELCTRLASTP 
CONT INT 


CTRLO_ECHO 
DELOUTBAND 


SCAPE 
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2 3333 


TAB_BUFFER 
TABLCANCEL CTRLS 
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Symbol table -SEP~1934 TTDRVR.BUGSRCJTTYCHARI .MAR; * 
UCBSL_STS = 4 
UCBSL_SVAPTE = 8 
CBSL_TL_BANDQUE = 9C 
UCBSL_TL_CTLPID AS 
UCBSL_TL_CTRLC- = 94 
UCBSL_TL_CTRLY ⸗ 9 
UCBS$L_TL_OUTBAND 2 9 
UCBSL_TT_LOGUCB = C 
CBSL_TT_MULTI = D 
84 TT_RDUE = 
UCBSL- TT" TYPAHD = 4 
UCBSACINT = ¢ 
UCBSA_TIM = 
UCBSQ_TT_STATE = 0 8 
UCBSV_IN = 00000001 
UCBSV_TT_NOTIF = 44 ¢ 
UCBSV_TT_TIMO = 8 44 
UCBSW_BOFF = 88 C 
UCBSW_DEVSTS = 0 860 
UCBSW_REFC = 0000005C 
UCBSW_STS = 49444 
UCBSW_TT_MULTILEN = 8 SES 
UCBSW_TT"PRTCTL = 000001 § 
wO = 0000004 
Ww = 00000008 
x = 00000000 
x0 = 0000000 
x1 = 0000000 
z0 = 0000000 
71 = 0000000 
two ommomoa eam a cee e + 
: ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 0.) 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 94943 ( 83 161.) NOPIC USR CON ABS LCL NOSHR EXE RC WRT NOVEC BYTE 
$$$115_DRIVER 00000 830.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$e caoesnee occas enon wee weno ce 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Tiae 
pntc tot tant ten 9 23 :01.09 
—* processing 35 $ tp 7 
s 1 561 § 7:40.97 
Syabol table sort f4 “ 
Pass 2 14 : 33 . 
Symbol table output 1 :00.1 
Psect synopsis output 1 :00. 
Cross-reference output 0 700. . 
Assembler run totals 921 : 34. 54 
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VAK=-11 Macro Run Statistics 


The york ing set {tate was 1950 pages. 
121125 bytes (237 pages) of virtual memory were used to buffer ghe intermediate sgee. 
There were 120 pages of symbol table space oj Lecosed to hold 2253 non-local and 40 local symbols. 
source Lines were read in Pass 1, producing object records in Pass 2. 
pages of virtual memory were used to define 45 macros. 
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! Macro Library statistics ! 


¢eeworneeess seo sew ce reece e seen + 


Macro Library name Macros defined 


“B52 g8DUAIS: SYS.OBJJLIB.MLB; 1 
$255$0UA18:CSYSLIBISTARLET.MLB; 3 
TOTALS (all libraries) 25 
2589 GETS were required to define 25 macros. 

There were no errors, warnings or information messages. 
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